unit VendaSearchFr;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, Buttons, StdCtrls, EditBtn, MainSearchFr, QueryConditions;

type

  { TVendaSearchFrame }

  TVendaSearchFrame = class(TMainSearchFrame)
    BuscarCliente: TBitBtn;
    Data: TDateEdit;
    id_cliente: TEdit;
    nome_pessoa: TEdit;
    id_venda: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    sigla_forma_pagamento: TRadioGroup;
    procedure BuscarClienteClick(Sender: TObject);
    procedure LocalizarButtonClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

uses
  Initializator, VendaFrDM, MainFr;

{ TVendaSearchFrame }

procedure TVendaSearchFrame.BuscarClienteClick(Sender: TObject);
begin
  TheControl.ShowForeignFrame(TMainFrame(ClienteSearchFrame));
end;

procedure TVendaSearchFrame.LocalizarButtonClick(Sender: TObject);
var
  condicoes: TQueryConditions;
begin
  if (id_cliente.Text <> '') or (id_venda.Text <> '') or (nome_pessoa.Text <> '') or
    (Data.Text <> '') then begin
    condicoes := TQueryConditions.Create(CON_AND);
    condicoes.AddJoinField('p.id_pessoa', 'v.id_cliente');
    condicoes.Add('v.id_venda', id_venda.Text);
    condicoes.Add('v.id_cliente', id_cliente.Text);
    condicoes.AddText('p.nome_pessoa', nome_pessoa.Text);
    condicoes.Add('v.data', Data.Text);
    if (sigla_forma_pagamento.ItemIndex = 0) then begin
      condicoes.AddText('v.sigla_forma_pagamento', 'D');
    end else if (sigla_forma_pagamento.ItemIndex = 1) then begin
      condicoes.AddText('v.sigla_forma_pagamento', 'C');
    end else if (sigla_forma_pagamento.ItemIndex = 2) then begin
      condicoes.AddText('v.sigla_forma_pagamento', 'T');
    end else if (sigla_forma_pagamento.ItemIndex = 3) then begin
      condicoes.AddText('v.sigla_forma_pagamento', 'P');
    end;
    VendaFrData.Search(Condicoes, 'venda as v, pessoa as p');
  end else begin
    ShowMessage('Selecione algum Parametro!');
  end;
end;

initialization
  {$I vendasearchfr.lrs}

end.
